فهرس الموضوعات 


التطبيق الاول كيفيه عمل ساعه ايقاف 


2 التطبيق العملي لاستخدام شريط التقدم 


3 التطبيق الثالث عمل برنامج لعكس الحروف 


4 التطبيق الرابع عمل تلفزيون كامل 


والله الموفق لكل خير 


مقدمه الموؤلف 


بسم الله الرحمن الرحيم 
يسعدني ان اقوم باصدار هذا الكتاب الاول في لغه الفيحوال بسك دوت نت والثالث في مجال البرمجه 
راجيا من الله عز وجل ان يعجعل اعمالنا خالصه لوجهه الكريم 


ربما يمر عمر الانسان سريعا ولا يدري ماذا يقدم لدينه وربما ينظر الانسان بتعجب شديد لتقدم الغرب وتخلف 
المسلمين وربما يأتي في ذهنك لماذا لا نساير ركب التقدم بل ونسبقهم 


من هذا المنطلق كان الحل لكل هذه التسألات شئ واحد ( وهو التعلم ) 
کل يتعلم في مجاله وکل انسان داعيه في مجاله 
فالشيخ داعي علي منبره 
والمهندس في مصنعه 
والطبيب في عيادته 


والمبرمج ايضا داعي في مجاله 


من هذا المنطلق اردت ان اضع بين ايديكم بعض الامصله والتطبيقات العمليه في هذا المجال 


وارجوا من الله عز وجل ان يجعل عملنا خالصا لوجهه الكريم 


م اسماعیل علي النجار 


ستكون السلسله عباره عن امثله عمليه 


سنبدأً بامثله بسيطه وسیكون الشرح مفسر باذن الله 


التطبيق الاول 
عمل برنامج ساعه ایقاف 
بسم الله نبد 
اولا 


قم بانشاء مشروع نوافذي جدید ولیکن باسم ٣2س‏ م0 


تأکد من تنشیط النموزج ۴٥٣۲٣1‏ ثم قم بتخصیص عنوان مناسب للخاصیھ ٤×ع]‏ بدلا من ۴٥۲٣1۹‏ ولیکم 
بalذ| stop watch pil!‏ 


قم باضافه اداه عنوان امطه| من مربع الادوات الي النموزج وقم بتغير الخاصيه ٤×ه)‏ الي 
0 وغير اسم الاداہ ائaيڃIbIElapsedTime‏ 


قم باضافه زر امر مع تغير الخاصيه ٤×ه]‏ الي ٤ء‏ وغير الخاصيه مهم الي٤٣a٤sہ٤ط‏ 


قم باضافه زر أخر مع تغير الخاصيه ٤×ه]‏ الي مهء وايضا الخاصيه ٣٠‏ هم الي مpہ٤ءہbt‏ 


ولا تنسي تخصيص القيمه همءاهع الي الخاصيه ١ء‏ ااه ٠٣‏ علشان يتم تعطيل هذا الزر عن بدايه تشغيل 
البرنامج 


قم بادراج زر المؤقت علي النموزج 
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افتح نافذه كود النموزج ثم قم باضافه الكود التالي قبل السطر ووجاc‏ ل٣م‏ 
Dim dStart As date Time‏ 


ايه فايده الكود السابق 


0 


وذلك لحساب الوقت المنقضي من بدايه التشغيل للساعه 
نبد في كتابه الاكواد وشرحها بالتفصيل 


اولا نكتب في حدث الزر جاك 


dStart = Now 
()Timer1.Start 


btnStart.enabled = false 
btnStop.enabled = True 


شرح الكود 
في السطر الاول 
تم تحديد الوقت الحالي للمتغير٤a)‏ 8 


في السطر التاني الوظيفه)/هS‏ () 
قامت بتشغيل التايمر 


والسطرين الثالث والرابع 


لتعطيل زر البدا وتنشيط زر الايقاف 


اما بالنسبه للحدث مهاو 


نكتب هذا الكود 


()(Timer1.Stop 


btnStart.enabled = True 
btnStop.enabled = false 


شرح الكود 
في السطر الاول 


يتم ايقاف المؤقت من الوظيفهمه٤5()‏ 


ثم تنشيط زر البدأ وتعطيل زر الايقاف 


بالنسبه للمؤقت نقوم بتعین قسمه ال اھ٣‏ )"| بالقیمه 100 
لكتابه كود التايمر 


رمز: 
Dim Hrs, Min, Sec As Long‏ 
Datelnterval.Second, dStart,DateTi,e, Now)Sec = DateDiff‏ ( 
Hrs = Int(Sec\3600)‏ 
Sec -= ( Hrs * 3600)‏ 


Min = Int (Sec\ 60) 
Sec- = (Min* 60) 
IbIElapsedTime.ext = Format(Hrs,"00")&":"& 
Format(Min,"00")&":"&Format(Sec,"00") 


شرح اهم ما في الكود السابق 
ما هي وظيفە()؟¡5 2†e‏ 5 


من خلال هذه الوظيفه يتم حساب الوقت بالثواني ثم تقسيم هذا الوقت لساعات ودقائق وثواني وعرضه من 
خلال اداه العنوان 


قم بتڈ غيل التطبيق وض غط t٤‏ يبدأ في العد ثم بعد ذلك اضغط علي مه٥ء‏ وتلاحظ وجود الوقت المنقضي 


بسم الله الرحمن الرحيم 
مثال عملي لكيفيه استخدام شريط التقدم 


ما هي فائدة شريط التقدم إه2طءوعإعإهم الفائدة هي إنجاز عمليه معينه مثلا عند تحميل ملف شريط التقدم 


لاهميه هذا الشريط أردت أن أضع لكم تطبيق عملي عن هذا الشريط 
واهم الخصائص التي تحتوي عليها شريط التقدم هي 
Minimum‏ و mumصاi×هم‏ وهما لتحدید مدي شریط التقدم 
نذهب الآن للتطبيق 


ولا قم بإنشاء مشروع جدید ونسمیه باسم مناسب ولیکم 0۲م 
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eate a Breakpoint Using Hit Count? 
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How Do 1; Lêarn Tips and Trieks for Debugging iı Visual Stutiio? 


Fri, 6 Fek 2009 16:58:38 -Û80O - In a debugging session, ii is possible to view and explore the values of elements. is also possible to modify" 
values in an effort to determine how ã new value affects the outcome. In this vidêo, Todd Miranda demonstrates hovy to use wgfch and immecizl 
windows tû test various scenarios while debugging 


Office Development with Visual Studio Developer Center Just Launched! 
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bešt way tû keep up to date with breaking hevrê, downloael samples afd tools, watch videos, and brows learning resources. Py 
team, get answers, and interact with the developer community 


Fri, 7 Nov 2008 10:33:58 -D800 - Learn how to get started with Windows Azure and Live Framework Tools for Visual Studio. Get 
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h a Windows user interface 
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Edl view Tools Window Community 


New 
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Save All OtthShift+S 
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Recent Projects 
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Create: Project. HES 


What's ney in Visual Studio 20057 
Samples and Walkthroughs 

Lise a Starter Kit 

New Project From Existing Code. 
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Developer Center 
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Project types: 
¥ Visual Basic 

Windows 

¢ Smart Device 
Database 
Starter Kits 

Visual CF 

Yisual Jf 

Visual Cr+ 

Other Project Types 


A project for creating an application 


Name: |prol 
Location: 
Solution Name: |pro 
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قم باضافه أداه شريط التقدم في مكانها المناسب 
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ثم قم باضافه هذا الکود کما هو موضح 


Dim delay as long 
Progressbar.value = 0 
Do while porgressbar1.value< progressbar1.maximum 
Porgressbar1.value+t=1 
For delay = 1 to 99999999 
Next 
Loop 
Msgbox (" download is completed ya 3asheq") 


File Edt view Project Build Debug Data Tools 


1-ê 4 @ 


pro - Microsoft Visual Studio 468 
Window Community Help 
Ha > ب‎ þi Debug > Any CPU ٠ ف‎ REBER, 
Als 22 2© 2 چ‎ 
Formi.vb" i Formî vb [Design ; Start Pagê ` Toolbox ¥ XK | Data Sources YHA XK 
|g @Butont ES # ù ê 
: - ا : ا‎ es : ا‎ 
û Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1. Click 
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الشرح الكامل للاكواد 
السطر الأول 
نعرف المتغير رهاعل من النوع عہه!ا 
في السطر التالي 
تم جعل الخاصية مه۷ تساوي صفر والسبب في ذلك ان نجعل الشريط فارغ ( لم يتم أي جزء من التحميل ) 
في السطر التالي 
نأتي لشرح ماطس هل أي (افعل حتى ) افعل هذا الآمر حتى تصل إلي أقصي قيمه النهائية 
في السطر التالي 
يتم فيها زياه المؤشر بمقدار 1 


هو عند انتهاء عمليه التحميل اظهر هذه الرllwة download is completed ya 3asheq‏ 
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التطبيق الثالت 

التصنيف عد 1ء ومثال تطبيقي عليه 

التصنيف عد اء يحتوي علي خاصيتين مهمتين جدا 
الخاصية طأعمء1 
الخاصية وإهطء 


Dim name as string = " ismail aly " 


المتال هو عكس الحروف الموجوده داخل مربع 


طبیعتها مره اخري 


نبد بعون الله كالتالي 


وهي مستخدمه ي حساب طول سلسله البیانات 
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ثم بعد ذلك نفتح الكود المصدري لأمر الزر ونكتب الكود التالي 


Dim tstart, tend As Date 

Dim tdiff As TimeSpan 

Dim strlen As Integer 
strlen = Len (TextBox1. Text) 
Dim revcrlf As String 
revcrlf = vbCrLf.Chars (1) & vbCrLf.Chars (0) 
tstart = Now () 

DIM ERE AŞ SEEIRnG 

Lxlt = TextBox1.Text 

Dim achar As String 

Dim ichar As Integer 


FOF LERAF = O0 To CIRE(CSEFLER Z 2) 
achar = Mid(txt, ichar + 1, 1) 
Mid(txt, ichar + 1, 1) = Mid(txt, strlen - ichar, 1) 
Mid(txt, strlen - ichar) = achar 

Next 


tend = Now () 

tdiff = tend.Subtract (tstart) 

Console.WritelLine (" reversed string in " & 
tdiff.TotalSeconds.ToString) 

TextBox1.Text = txt.Replace (revcrlf, vbCrLf) 


الشرح التفصيلي للكود 


Dim tstart, tend As Date 


السطر الثاني 


Dim tdiff As TimeSpan 

تعریف ٤1۴۴‏ من النوع Timespan‏ ) الفائده معرفه وقت عكس السلسله البيانات بالٿواني 
وسوف یتم شرح TimeSpan‏ في وقت لاحق 

السطر التالي 

Dim strlen As Integer 


strlen = Len (TextBox1. Text) 
1ہtمومr تم التالي ( تعريف المتغير ,٥1إاء ) من النوع‎ 


السطر التالي 


Dim revcrlf As String 
revcrlf = vbCrLf.Chars (1) & vbCrLf.Chars (0) 


يتم هنا عكس الحروف التي تدل علي الانتقال إلي سطر جديد لكي يتم إرجاعها لوضعها الطبيعي بعد عكس 
النلص 


السطر التالي 

tstart = Now () 

هذا الكود يدل علي تخزين الوقت الحالي في المتغير خإماوع 
السطر التالي 


DI txt A SEEING 
txt = TextBox1.Text 


الفائدة من هذا الكود هو التالي 


أولا تعريف المتغير × من النوع SEFIRG‏ 


ثم بعد ذلك يتم تخصيص محتويات مربع النص الي متغير نصي × 


السطر التالى 
DIM achar Aé StEEIRG‏ 
Dim ichar As Integer‏ 
FOF LERAF =0 To CIRE(SEFLeN 7 2)‏ 
achar = Mid(txt, ichar + 1, 1)‏ 
Mid(txXt, ichar # 1, 1) = Mid(txt, strlen = ichar, 1)‏ 
Mid(txt, strlen - ichar) = achar‏ 
Next‏ 


أولا تم تعريف ءمطءم من النوع ودذءإعو 
ثم تعريف المتغير إمطہ د من النوع Integer‏ 
ما هي أهميه الوظيفة () 1د" 


تقوم بإرجاع احد حروف سلسله البيانات txt‏ حتى يتم عكس وترتيب جميع الحروف الموجودة بسلسلة البيانات 
وذلك من خلال ۲ه 


السطر التالي 


tend = Now () 
tdiff = tend.Subtract (tstart) 
Console.WriteLlLine (" reversed string in " & 
tdiff.TotalSeconds.ToString) 
TextBox1.Text = txt.Replace (revcrlf, vbCrLf) 


أولا يتم تخزين وقت انتهاء وقت انتهاء عمليه عكس الحروف 
تم بعد ذلك يتم طرح وقت البدء من وقت الانتهاء من الوظيفة ٤ءء‏ اطنء وتخزين الناتج في المتغير £] 1ل 
والسطر القالي م باع الرقت السكفرق فى كن التر تي الروك 


وهذه هي النتيجة النهائية للبرنامج 


n 


ll 


هذا الدرس درس عكس الحروف من شرح الاخ عاشق الأبداع هرجوا 
لكم الفائده 
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عند الضغط علي عكس الحروف نلاحظ التالي 


شحافلا مکل اوجریو عادبالا قشاع خالا جرش نم فورخلا سگچ سرد 
سردلا اڌه 
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AxRealAudio1.Visible = False 


AxWindowsMediaPlayer1.Visible = True 


AxWindowsMediaPlayer1.URL = 
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AxRealAudio1.DoStop() 
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AxRealAudio1.Visible = False 
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AxWindowsMediaPlayer1.Visible = True 


معناه تمكين عمل الاذاعات التي تJnz‏ ب WindowsMediaPlayer‏ 


السطر الثالث 


AxWindowsMediaPlayer1.URL = "" 


AxRealAudio1.DoStop() 


معنا هذا الكود يمثل الاذاعه التي wتJa‏ ڊJl WindowsMediaPlayer‏ 
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AxRealAudio1.Visible = True 


AxWindowsMediaPlayer1.close() 
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